Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  908 1754 (N46E08 L= 75)   323     21        0 ( 892/1728- 930/1774)  76.0 E09-E05 N43-N47
      2  934 1674 (N39E05 L= 78)   276     51        1 ( 915/1652- 962/1699) -53.1 E06-E02 N37-N41
      3 1562 1559 (N30W41 L=124)  2607    405        4 (1421/1473-1746/1647) -24.6 W32-W56 N24-N36
      4  626 1556 (N31E27 L= 56)   513     93        1 ( 578/1531- 670/1580) -26.6 E31-E23 N29-N33
      5 1324 1472 (N24W21 L=104)   313    127        1 (1257/1459-1376/1485)   0.0 W16-W24 N23-N24
      6 1429 1417 (N20W27 L=110)   269    112        1 (1391/1378-1447/1454)  68.2 W24-W28 N17-N22
      7 1527 1335 (N15W33 L=116)   629    178        1 (1502/1240-1548/1407) -84.3 W31-W34 N09-N19
      8 1731 1311 (N14W49 L=132)   811    213        1 (1690/1209-1773/1396) -76.0 W46-W52 N07-N19
      9 1836 1336 (N16W61 L=145)   578     54        1 (1816/1294-1860/1364) -90.0 W59-W64 N12-N17
     10 1900 1271 (N12W68 L=152)   747     71        2 (1872/1235-1920/1311) -78.7 W64-W71 N09-N14
     11 1844 1240 (N10W60 L=143)  1450    164        3 (1804/1198-1912/1286) -14.0 W55-W68 N07-N12
     12  305  813 (S13E50 L= 33)  2358    578        4 ( 227/ 551- 350/1048)  84.3 E57-E47 S29-N01
     13 1057  920 (S09W02 L= 85)   231     52        1 (1040/ 890-1074/ 952) -71.6 W00-W02 S10-S07
     14  161  811 (S12E67 L= 17)  4166    292        9 (  90/ 696- 228/ 941) -61.9 E77-E59 S19-S04
     15 1041  849 (S13W01 L= 84)   256     86        0 (1014/ 815-1075/ 884) -63.4 W00-W02 S15-S11
     16  244  830 (S12E56 L= 27)   357     67        0 ( 229/ 791- 258/ 869) -76.0 E56-E54 S13-S09
     17  808  742 (S19E14 L= 69)   798    280        0 ( 742/ 656- 848/ 845)  71.6 E19-E11 S24-S12
     18  962  804 (S16E04 L= 79)   175     86        0 ( 949/ 768- 978/ 842) -90.0 E05-E03 S18-S13
     19  608  679 (S22E28 L= 55)   821    253        2 ( 523/ 641- 719/ 756) -33.7 E33-E21 S25-S17
     20 1555  619 (S28W37 L=120)   415     87        0 (1520/ 584-1594/ 656)  51.3 W34-W39 S30-S25
     21 1704  596 (S30W52 L=135)   303     34        0 (1689/ 570-1719/ 624) -53.1 W49-W53 S31-S27
     22 1389  550 (S33W25 L=108)   648    188        2 (1296/ 531-1481/ 571)   8.1 W18-W32 S33-S31
     23 1022  400 (S43E02 L= 81)  1434    390        4 ( 846/ 315-1169/ 487)  24.0 E18-W09 S49-S36
  

    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