Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1231 1635 (N35E04 L=306)   806    175        1 (1156/1576-1299/1669)  11.3 E09-W01 N31-N36
      2  862 1471 (N14E20 L=290)   219     64        0 ( 829/1454- 893/1485)   0.0 E22-E18 N13-N15
      3 1501 1337 (N23W21 L=331)   235     64        0 (1491/1302-1514/1376) -63.4 W19-W22 N20-N25
      4 1775 1351 (N33W44 L=354)   376     42        0 (1746/1337-1801/1368)  18.4 W41-W47 N31-N34
      5 1375 1325 (N18W13 L=323)   449    107        0 (1314/1295-1428/1350)   7.1 W08-W16 N17-N19
      6  171 1231 (S11E67 L=243)   699    136        4 ( 136/1201- 209/1267)   5.7 E72-E62 S13-S09
      7 1768 1223 (N24W44 L=354)   435     79        1 (1749/1181-1787/1262) -45.0 W41-W46 N22-N26
      8  768 1105 (S09E16 L=294)   222    108        2 ( 737/1079- 801/1148) -18.4 E19-E13 S09-S06
      9  110 1094 (S20E74 L=236)  1004     84        7 (  92/1047- 126/1136) -51.3 E78-E70 S22-S17
     10  618 1055 (S14E24 L=285)   388    174        0 ( 597/ 975- 648/1118) -69.4 E25-E21 S18-S10
     11 1780 1045 (N14W47 L=357)  1012    145        3 (1741/ 980-1818/1109) -45.0 W43-W52 N10-N17
     12 1588 1000 (N06W33 L=343)   632    205        2 (1497/ 960-1662/1055)  45.0 W28-W37 N01-N10
     13 1932 1013 (N18W67 L= 17)   634     58        1 (1917/ 983-1952/1043)  90.0 W64-W71 N16-N19
     14 1718  991 (N09W43 L=353)   285     31        0 (1703/ 965-1735/1018) -71.6 W41-W44 N07-N10
     15  646  832 (S27E19 L=291)   305     59        0 ( 609/ 810- 677/ 852) -11.3 E21-E16 S27-S25
     16 1872  701 (S00W70 L= 20)   734     55        2 (1843/ 684-1908/ 721)   4.1 W65-W79 S01-N01
     17  377  623 (S46E41 L=269)  1866    348        2 ( 240/ 563- 549/ 669)   0.0 E60-E22 S47-S42
     18 1784  535 (S12W71 L= 21)  1426    176        5 (1743/ 457-1825/ 601) -66.0 W66-W78 S16-S07
     19 1595  423 (S24W60 L= 10)  1329    192        4 (1510/ 394-1696/ 446)  22.4 W51-W69 S26-S19
     20 1441  263 (S38W63 L= 13)  1411    119        3 (1370/ 237-1509/ 289)  18.4 W55-W71 S40-S34
  

    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