Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1307 1716 (N48W37 L= 47)   475     85        0 (1268/1684-1338/1743) -71.6 W35-W39 N44-N50
      2 1239 1614 (N41W25 L= 35)   447     80        1 (1204/1574-1266/1644) -71.6 W22-W27 N37-N43
      3 1687 1484 (N25W59 L= 69)   779    103        0 (1636/1450-1724/1512) -35.5 W54-W62 N22-N27
      4  332 1425 (N35E55 L=315)   493     70        0 ( 305/1402- 368/1449)  -5.7 E60-E50 N33-N37
      5 1026 1408 (N29W04 L= 14)   342    136        1 ( 974/1379-1094/1433) -32.0 W00-W08 N26-N31
      6  398 1322 (N28E44 L=326)   317     50        1 ( 382/1290- 416/1351) -76.0 E45-E42 N26-N30
      7 1554 1063 (N02W34 L= 44)   464    109        1 (1515/1024-1584/1111)  33.7 W31-W37 N00-N04
      8 1244 1054 (N05W14 L= 24)   278     97        1 (1218/1012-1279/1084)  31.0 W11-W16 N02-N06
      9 1932 1034 (S06W75 L= 86)   897     58        0 (1911/1008-1949/1067)  20.6 W70-W81 S07-S04
     10 1704  786 (S17W45 L= 55)   542    139        1 (1672/ 742-1726/ 825)  68.2 W42-W47 S20-S14
     11  981  697 (S14E06 L=  4)   457    193        2 ( 925/ 654-1037/ 757) -66.8 E08-E02 S17-S10
     12  390  641 (S14E49 L=321)   879    191        1 ( 348/ 567- 456/ 712) -60.9 E51-E44 S19-S09
     13 1090  645 (S19W01 L= 11)   451    160        0 (1041/ 597-1117/ 709)  74.1 E03-W02 S21-S14
     14  476  651 (S14E41 L=329)   608    184        0 ( 422/ 621- 524/ 702) -15.9 E45-E37 S15-S10
     15  713  610 (S18E24 L=346)   310     54        2 ( 680/ 589- 740/ 636)  11.3 E27-E22 S19-S16
     16 1309  588 (S25W15 L= 25)   489    117        2 (1253/ 560-1371/ 618)   6.3 W10-W19 S27-S23
     17 1580  592 (S29W36 L= 46)   313     55        2 (1547/ 574-1610/ 613) -18.4 W33-W39 S30-S27
     18 1785  560 (S36W64 L= 74)   873     82        1 (1742/ 543-1826/ 588)  -3.4 W56-W75 S36-S33
     19  783  528 (S24E21 L=349)   387     79        1 ( 764/ 487- 810/ 569)  45.0 E23-E18 S26-S21
     20 1145  472 (S32W03 L= 13)   742    164        0 (1082/ 426-1200/ 531)  32.0 E02-W06 S34-S27
     21 1245  419 (S37W10 L= 20)   564    168        2 (1163/ 402-1327/ 444)  -4.4 W03-W16 S38-S35
     22  798  356 (S37E26 L=344)   357     73        1 ( 760/ 342- 832/ 370)   8.1 E29-E22 S38-S35
     23  910  288 (S44E19 L=351)  1629    197        4 ( 853/ 216- 978/ 347)  29.4 E27-E11 S51-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