Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  571 1598 (N27E38 L=129)   701    193        2 ( 509/1567- 652/1644)   4.8 E43-E31 N25-N30
      2  304 1479 (N18E57 L=109)  1062    121        6 ( 253/1441- 355/1517)  24.0 E63-E52 N15-N21
      3 1571 1429 (N25W34 L=200)   872    169        0 (1509/1367-1624/1485) -36.9 W28-W37 N21-N28
      4 1123 1358 (N16W03 L=170)   667    158        4 (1073/1308-1161/1423)  74.1 W00-W05 N12-N19
      5 1002 1376 (N16E04 L=163)   223     89        1 ( 958/1349-1044/1401)  31.0 E06-E01 N13-N17
      6 1506 1353 (N19W28 L=195)   214     44        2 (1483/1335-1530/1374)  18.4 W26-W29 N18-N20
      7  905 1250 (N07E09 L=158)  1082    378        3 ( 768/1100- 977/1369) -45.0 E18-E03 S01-N13
      8 1594 1234 (N13W34 L=201)   233    140        0 (1549/1214-1630/1268) -21.8 W31-W37 N11-N15
      9 1934 1159 (N14W70 L=236)   675     91        0 (1902/1133-1958/1184) -14.0 W64-W75 N12-N15
     10  378 1135 (S03E42 L=124)   490    127        0 ( 329/1098- 438/1160) -12.5 E46-E37 S04-S01
     11  671 1003 (S09E21 L=146)   431    147        0 ( 615/ 949- 723/1044)  45.0 E24-E18 S12-S06
     12  214  962 (S13E57 L=110)   413     85        2 ( 179/ 923- 240/ 999) -45.0 E61-E54 S15-S10
     13 1178  912 (S10W10 L=177)   385    105        2 (1131/ 874-1238/ 946)  33.7 W07-W13 S12-S07
     14  168  871 (S18E64 L=103)   455     69        3 ( 144/ 834- 186/ 899) -36.9 E67-E61 S20-S16
     15  850  817 (S19E09 L=158)  1133    491        1 ( 645/ 747-1044/ 887)  18.4 E22-W02 S23-S13
     16 1101  799 (S18W07 L=173)   727    407        2 ( 944/ 747-1266/ 845)  26.6 E02-W16 S22-S13
     17  631  659 (S30E24 L=143)   273     51        0 ( 618/ 626- 646/ 690) -90.0 E24-E22 S32-S28
     18  497  623 (S33E35 L=132)   389     67        1 ( 471/ 585- 526/ 655) -53.1 E36-E33 S35-S31
     19 1327  494 (S34W28 L=195)   321     72        0 (1284/ 480-1367/ 511)  18.4 W24-W30 S35-S33
     20 1316  390 (S42W31 L=198)   837    233        1 (1246/ 356-1429/ 447)  -6.3 W23-W41 S44-S38
  

    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