Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1391 1526 (N29W37 L=229)   764    303        1 (1278/1480-1532/1572) -32.0 W30-W46 N23-N33
      2 1687 1430 (N16W57 L=248)   411     48        2 (1659/1402-1706/1456)   0.0 W53-W59 N14-N17
      3 1021 1330 (N25W06 L=197)  1116    263        0 ( 937/1231-1087/1427) -71.6 W01-W08 N17-N32
      4 1735 1354 (N10W58 L=249)   375     59        1 (1711/1336-1769/1374)  -8.1 W54-W61 N09-N11
      5  810 1040 (N11E13 L=179)   330    154        1 ( 776/ 991- 877/1071)  15.9 E15-E08 N08-N13
      6 1199  856 (S06W07 L=199)   194     93        0 (1180/ 815-1235/ 887)  31.0 W05-W10 S08-S04
      7  941  805 (S05E09 L=182)   464    145        2 ( 889/ 770-1008/ 844) -45.0 E11-E05 S07-S01
      8 1225  754 (S13W07 L=199)   204    104        0 (1194/ 741-1263/ 777) -14.0 W05-W09 S14-S11
      9 1266  592 (S24W07 L=198)  1194    481        0 (1114/ 456-1428/ 743)  25.6 E05-W20 S30-S17
     10 1062  637 (S17E05 L=186)   261     79        0 (1033/ 608-1083/ 674)  36.9 E07-E03 S18-S15
     11 1424  570 (S30W18 L=209)   769    267        1 (1338/ 473-1510/ 655)  31.0 W10-W25 S34-S25
     12  330  534 (S14E63 L=128)  1169    119        5 ( 287/ 494- 383/ 571)  -5.2 E68-E56 S16-S11
     13  803  477 (S23E26 L=166)   408    103        0 ( 764/ 443- 832/ 523)  29.7 E29-E22 S25-S20
  

    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