Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1682 1487 (N20W53 L=349)   522    115        1 (1642/1424-1713/1537) -76.0 W50-W54 N15-N23
      2  269 1356 (N29E51 L=245)   884    166        3 ( 225/1290- 299/1426)  71.6 E55-E48 N24-N33
      3  482 1310 (N23E32 L=264)   652    190        0 ( 400/1269- 545/1374)  21.8 E38-E27 N20-N26
      4 1859 1122 (S04W61 L=358)  1091    253        4 (1823/1065-1899/1178)  45.0 W56-W66 S07-N00
      5 1424 1134 (N01W25 L=322)   441    132        2 (1400/1089-1441/1176)  76.0 W23-W26 S01-N03
      6 1413 1045 (S04W24 L=321)   329     74        1 (1379/1006-1444/1076) -45.0 W21-W25 S06-S01
      7 1721  910 (S15W45 L=342)   716    172        0 (1677/ 823-1768/ 981)  45.0 W41-W49 S19-S11
      8 1620  909 (S14W37 L=334)   274     72        0 (1603/ 880-1636/ 952)  76.0 W35-W38 S15-S11
      9 1415  878 (S14W22 L=319)   265     56        1 (1387/ 847-1443/ 909) -63.4 W20-W24 S15-S11
     10  319  867 (S02E49 L=248)   311     58        1 ( 302/ 833- 335/ 894) -76.0 E50-E47 S04-N00
     11 1454  848 (S16W25 L=322)   260     88        0 (1426/ 789-1478/ 893)  56.3 W22-W26 S19-S13
     12 1837  829 (S21W56 L=353)   513    107        0 (1807/ 790-1873/ 860)  29.7 W53-W60 S23-S19
     13 1106  693 (S21W01 L=298)  1041    235        4 (1031/ 601-1165/ 790)  48.0 E04-W05 S26-S15
     14  522  737 (S12E35 L=261)   283     48        1 ( 499/ 713- 551/ 761) -33.7 E36-E33 S13-S10
     15  377  683 (S14E48 L=249)  1453    239        6 ( 320/ 631- 435/ 730) -40.6 E52-E43 S17-S10
     16  471  575 (S21E44 L=253)  1143    342        5 ( 437/ 455- 504/ 718)  53.1 E49-E37 S28-S12
     17 1619  665 (S29W37 L=334)   593    118        1 (1563/ 618-1668/ 710)  32.0 W33-W41 S31-S26
     18  785  278 (S46E33 L=264)   564    114        1 ( 758/ 244- 811/ 316)  40.6 E36-E29 S49-S43
     19  637  226 (S48E50 L=247)   589    186        0 ( 608/ 202- 680/ 253)  14.0 E55-E43 S50-S46
  

    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