Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  334 1349 (N28E53 L=151)   563     99        0 ( 284/1331- 388/1368)   0.0 E58-E46 N26-N28
      2  883 1236 (N19E08 L=195)   447    183        2 ( 829/1189- 975/1282) -33.7 E11-E02 N15-N21
      3 1571 1152 (N08W37 L=240)   262     89        0 (1533/1113-1602/1181) -51.3 W34-W39 N05-N10
      4  195 1090 (N11E64 L=140)   774    116        0 ( 183/1022- 209/1148) -66.8 E65-E61 N07-N14
      5 1453 1079 (N05W28 L=231)   285    104        0 (1415/1041-1488/1122) -51.3 W25-W29 N02-N07
      6  905  947 (N01E08 L=195)   291     89        0 ( 862/ 928- 946/ 981)  21.8 E10-E05 N00-N02
      7 1400  914 (S05W23 L=226)   755    217        1 (1300/ 887-1490/ 962) -17.1 W16-W29 S06-N00
      8  303  756 (S09E54 L=149)   604    119        1 ( 278/ 710- 344/ 792)  32.0 E57-E49 S12-S07
      9  245  727 (S11E62 L=141)   507     55        1 ( 224/ 698- 263/ 760) -76.0 E64-E59 S13-S09
     10  820  639 (S18E16 L=187)   449    127        1 ( 783/ 605- 886/ 673)  23.2 E18-E11 S20-S15
     11 1318  607 (S24W17 L=220)   365    139        1 (1263/ 564-1356/ 643)  33.7 W13-W19 S26-S21
     12 1456  554 (S29W28 L=231)   261    116        0 (1439/ 503-1478/ 603) -66.8 W26-W30 S32-S25
     13  702  506 (S27E27 L=177)   601     85        1 ( 669/ 467- 744/ 535)  26.6 E30-E22 S29-S24
     14  666  387 (S36E34 L=169)   556    111        1 ( 649/ 321- 695/ 431)  60.9 E38-E29 S41-S32
     15  655  249 (S49E46 L=157)   663     79        0 ( 635/ 225- 693/ 279) -45.0 E51-E41 S51-S45
  

    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