Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  442 1570 (N21E49 L=293)  1329    284        4 ( 395/1465- 485/1637) -53.1 E55-E45 N13-N25
      2  326 1598 (N22E62 L=280)   538    142        1 ( 301/1577- 350/1616) -23.2 E65-E58 N20-N23
      3  560 1545 (N20E39 L=304)   642     91        0 ( 536/1508- 592/1589) -71.6 E40-E36 N17-N23
      4  254 1525 (N17E67 L=275)   883    189        1 ( 233/1488- 283/1585)  71.6 E70-E63 N14-N21
      5 1774 1492 (N37W51 L= 34)   508    144        0 (1750/1458-1802/1517)  40.6 W47-W55 N34-N40
      6  484 1460 (N14E42 L=301)   317     59        1 ( 456/1441- 511/1492)   0.0 E43-E39 N12-N15
      7  987 1456 (N19E08 L=334)   284     88        0 ( 946/1420-1013/1484) -31.0 E11-E06 N17-N20
      8  353 1410 (N10E51 L=291)   432     91        0 ( 325/1373- 378/1459)  68.2 E53-E50 N07-N12
      9  884 1396 (N14E14 L=329)   229     68        1 ( 846/1372- 911/1414) -11.3 E16-E11 N12-N15
     10  874 1322 (N09E13 L=330)   211     59        1 ( 844/1295- 902/1342) -26.6 E15-E10 N08-N10
     11  248 1095 (S10E54 L=288)   528     83        1 ( 227/1056- 269/1139)  90.0 E56-E52 S12-S07
     12  102 1092 (S10E74 L=269)   720    108        3 (  81/1065- 122/1131)  76.0 E77-E70 S11-S07
     13 1162 1022 (S04W08 L=351)   192     74        0 (1121/ 988-1194/1056) -31.0 W05-W10 S05-S02
     14  411  880 (S22E39 L=304)  1012    221        3 ( 332/ 834- 491/ 930)  24.8 E45-E32 S24-S18
     15 1713  784 (S09W50 L= 32)  1134    242        2 (1679/ 687-1762/ 896)  90.0 W47-W53 S14-S01
     16 1135  847 (S15W09 L=352)   314     94        0 (1098/ 817-1184/ 881)  51.3 W07-W11 S17-S12
     17 1843  738 (S08W65 L= 47)  1307    244        4 (1799/ 694-1887/ 786) -26.6 W59-W72 S10-S05
     18 1764  663 (S14W59 L= 41)   655     55        1 (1739/ 635-1792/ 692)  56.3 W56-W61 S16-S12
     19  827  636 (S32E07 L=335)   436     78        2 ( 803/ 601- 854/ 675) -51.3 E09-E05 S34-S29
  

    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