Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1411 1783 (N36W59 L=168)   434     73        0 (1386/1757-1449/1803)  -8.1 W54-W63 N35-N37
      2  397 1613 (N60E43 L= 66)   739    113        0 ( 361/1566- 440/1646)  32.0 E48-E35 N56-N62
      3 1071 1395 (N24W13 L=121)   310     65        0 (1047/1371-1110/1416) -14.0 W11-W15 N22-N25
      4 1852 1343 (S01W67 L=176)  1123     82        2 (1805/1314-1898/1364)  -7.1 W60-W76 S02-N00
      5 1319 1170 (N05W20 L=129)   197     88        0 (1275/1148-1355/1196)   0.0 W17-W22 N04-N06
      6  542 1136 (N23E26 L= 82)  1503    334        2 ( 368/1089- 689/1184) -25.6 E39-E16 N18-N29
      7 1097 1141 (N09W07 L=115)   206     86        0 (1053/1129-1149/1153) -18.4 W04-W10 N08-N10
      8 1489  862 (S16W23 L=131)   776    359        0 (1379/ 749-1586/ 992)  24.0 W13-W31 S19-S11
      9  831  916 (N04E13 L= 95)   258    100        0 ( 776/ 893- 861/ 949)   0.0 E16-E10 N02-N05
     10 1602  883 (S18W31 L=139)   435    119        2 (1560/ 840-1630/ 939)  33.7 W27-W33 S19-S15
     11 1171  889 (S06W05 L=113)   191     94        0 (1127/ 868-1216/ 903) -45.0 W02-W06 S08-S04
     12  178  863 (N14E64 L= 44)  1590    201        3 ( 100/ 837- 276/ 896)  -6.8 E77-E52 N12-N17
     13  397  802 (N07E44 L= 65)   686    182        1 ( 372/ 737- 427/ 884)  63.4 E46-E41 N03-N11
     14 1742  711 (S34W41 L=149)  1713    335        1 (1669/ 611-1840/ 852)  25.3 W33-W52 S38-S27
     15  285  732 (N05E56 L= 52)   892    142        1 ( 235/ 700- 352/ 771) -26.6 E60-E50 N02-N07
     16 1508  686 (S27W21 L=129)   327    114        0 (1481/ 635-1535/ 732)  33.7 W17-W23 S29-S25
     17  656  647 (S07E31 L= 77)   442    120        0 ( 612/ 605- 704/ 693)  20.6 E34-E26 S08-S05
     18  298  591 (S03E61 L= 47)  1460    189        0 ( 235/ 521- 352/ 674)  14.6 E75-E52 S06-N00
     19 1345  365 (S45W02 L=110)   388     61        1 (1313/ 335-1367/ 402) -90.0 W00-W03 S47-S41
     20  954  218 (S43E34 L= 74)  1357    305        1 ( 815/ 175-1080/ 292)   2.0 E49-E20 S46-S40
  

    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