Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  782 1542 (N22E23 L=346)   231     52        2 ( 763/1514- 797/1567) -56.3 E24-E21 N20-N23
      2  477 1520 (N17E44 L=325)   801    187        1 ( 404/1494- 575/1542)   4.1 E50-E36 N15-N19
      3  895 1457 (N18E14 L=355)   875    263        3 ( 783/1410-1005/1497)  -3.8 E21-E06 N15-N19
      4  862 1370 (N12E14 L=355)  1092    266        5 ( 766/1308- 974/1438)  26.6 E19-E07 N07-N15
      5  653 1376 (N10E28 L=342)   248    104        2 ( 632/1326- 670/1408) -78.7 E29-E25 N07-N12
      6 1288 1069 (N00W15 L= 24)   182     63        2 (1259/1043-1309/1092)   0.0 W12-W16 S01-N01
      7 1138 1069 (S02W06 L= 15)   174     96        0 (1082/1060-1178/1078)  18.4 W02-W08 S03-S01
      8  639 1022 (S11E23 L=346)   426    155        2 ( 583/ 966- 673/1076)  63.4 E26-E21 S14-S07
      9  811 1029 (S09E13 L=357)   231    109        1 ( 784/ 989- 833/1074) -78.7 E14-E11 S11-S06
     10 1518 1000 (S00W30 L= 39)   243     95        0 (1507/ 949-1532/1043)  90.0 W29-W30 S03-N02
     11  166  899 (S22E64 L=305)  1600    218        4 (  87/ 836- 222/ 958)  13.0 E82-E56 S25-S18
     12  584  787 (S25E25 L=344)  1316    351        4 ( 428/ 743- 738/ 839)   7.4 E37-E14 S29-S21
     13 1322  686 (S21W24 L= 33)  1144    431        0 (1205/ 569-1492/ 814)  57.7 W19-W32 S30-S11
     14 1058  769 (S20W06 L= 15)   412    198        0 ( 970/ 743-1147/ 788)  16.7 W00-W10 S21-S18
     15 1713  705 (S13W52 L= 61)   296     76        1 (1683/ 689-1751/ 729)   0.0 W48-W55 S13-S12
     16 1548  633 (S20W41 L= 50)   821    174        2 (1511/ 563-1572/ 719) -60.9 W37-W43 S24-S15
     17 1742  583 (S19W61 L= 70)   492     91        0 (1707/ 558-1777/ 618)  51.3 W57-W63 S21-S16
     18  349  558 (S43E51 L=318)   382    100        1 ( 301/ 536- 404/ 581)  -9.5 E56-E44 S43-S41
     19  986  555 (S35W05 L= 14)   921    242        0 ( 867/ 533-1105/ 575)   7.1 E03-W13 S36-S33
     20 1664  523 (S24W56 L= 65)   355     72        0 (1629/ 507-1700/ 538)   7.1 W52-W60 S24-S23
     21 1411  287 (S45W52 L= 61)  1922    235        4 (1313/ 243-1495/ 339)  12.5 W38-W63 S47-S40
     22 1550  260 (S42W73 L= 82)   777     76        1 (1534/ 223-1564/ 303) -15.5 W65-W84 S44-S39
  

    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