Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  363 1506 (N53E49 L=  1)   531     79        0 ( 327/1486- 405/1524)   0.0 E54-E42 N51-N54
      2 1218 1471 (N28W25 L= 75)   213     60        0 (1196/1448-1245/1492)   0.0 W22-W26 N26-N28
      3  992 1246 (N21W04 L= 53)   208    137        1 ( 931/1220-1042/1270) -18.4 W00-W06 N18-N22
      4  776 1077 (N16E13 L= 36)   771    170        2 ( 699/1020- 831/1147) -60.9 E17-E10 N12-N21
      5  188 1101 (N28E64 L=346)   563     68        1 ( 161/1077- 222/1125) -11.3 E68-E58 N26-N29
      6 1789  878 (S22W49 L= 98)  3658    643        2 (1589/ 671-1924/1109)  18.4 W28-W71 S30-S13
      7  818  921 (N06E14 L= 36)   705    178        1 ( 776/ 848- 847/1005)  48.8 E18-E11 N02-N10
      8  498  954 (N14E34 L= 16)   337    139        0 ( 481/ 907- 540/ 992)  59.0 E35-E30 N11-N16
      9  198  918 (N17E63 L=347)   589    140        0 ( 182/ 856- 230/ 986) -63.4 E65-E60 N12-N20
     10 1628  841 (S19W33 L= 83)  1236    250        1 (1569/ 727-1692/ 927)  36.9 W27-W39 S24-S15
     11  739  719 (S04E24 L= 26)   353    108        0 ( 714/ 680- 767/ 776) -90.0 E24-E22 S06-N00
     12 1835  732 (S34W55 L=105)   553     67        0 (1805/ 698-1863/ 767)  15.9 W51-W59 S35-S32
     13  960  540 (S20E16 L= 34)   323     89        0 ( 915/ 515- 995/ 555) -45.0 E18-E14 S22-S18
     14 1168  352 (S39E10 L= 40)  1502    247        3 (1085/ 278-1240/ 446)  25.2 E18-E01 S43-S33
     15  873  381 (S28E28 L= 22)   427     98        0 ( 826/ 366- 923/ 405) -45.0 E30-E24 S30-S25
  

    OPENR, u, binfile, /COMP, /GET_LUN
    head = FLTARR(6) ;[xsize,ysize,radius,hh,mm,ss]
    READU, u, head
    data = INTARR(FIX(head[0]),FIX(head[1]))
    READU, u, data
    FREE_LUN, u
    

• each filament has the value of Fil_ID
• all values are in pixel

  c = WHERE(data EQ Fil_ID, area)
  f = '(2(A,I6))'
  PRINT, FORM=f, "Area of Fil_ID", Fil_ID," =", area 

  data = ROTATE(data,7)
  Solar_y = 2048-Solar_y