Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1645 1602 (N18W63 L=186)   533     74        0 (1631/1559-1663/1633)  18.4 W58-W67 N16-N19
      2 1706 1596 (N15W69 L=193)   612     56        2 (1683/1567-1725/1620)  18.4 W65-W74 N13-N16
      3 1580 1559 (N18W54 L=177)   333     52        1 (1551/1539-1605/1580)  -9.5 W51-W57 N16-N19
      4 1675 1492 (N12W57 L=181)   394     79        2 (1649/1451-1703/1525) -90.0 W55-W58 N08-N13
      5 1251 1365 (N18W23 L=146)   479    159        1 (1187/1347-1331/1383) -35.5 W19-W26 N15-N20
      6 1071 1286 (N19W10 L=133)   374    139        0 (1011/1250-1118/1317) -38.7 W06-W11 N16-N21
      7 1869 1112 (S15W59 L=183)  4586    247        5 (1802/1031-1943/1220) -53.7 W52-W69 S22-S07
      8  438 1057 (N23E35 L= 88)  1763    391        2 ( 306/ 919- 550/1195) -54.5 E45-E29 N12-N33
      9 1468 1058 (S04W26 L=149)   280     93        0 (1454/1012-1482/1110)  68.2 W23-W27 S06-S01
     10  710 1063 (N16E17 L=107)   368    161        0 ( 644/1041- 798/1092) -33.7 E20-E11 N13-N19
     11 1822 1005 (S19W51 L=175)   858    145        4 (1770/ 976-1882/1038) -32.5 W46-W58 S22-S15
     12 1820  947 (S22W50 L=174)   498     81        1 (1792/ 924-1850/ 985)  45.0 W47-W53 S23-S19
     13 1450  838 (S16W19 L=143)   527    188        0 (1410/ 756-1479/ 926)  45.0 W14-W22 S19-S11
     14 1579  663 (S31W24 L=148)  3234    537        4 (1443/ 484-1719/ 901)  31.3 W10-W39 S39-S20
     15 1365  790 (S16W13 L=136)   196     41        0 (1336/ 777-1390/ 802) -45.0 W11-W14 S17-S14
     16  970  782 (S05E09 L=114)   248     74        1 ( 927/ 767-1008/ 799) -26.6 E11-E07 S06-S04
     17  790  718 (S04E21 L=102)   369     83        0 ( 775/ 667- 809/ 761)  71.6 E22-E19 S07-S01
     18 1227  678 (S18W02 L=125)   284     82        0 (1208/ 636-1253/ 726)  45.0 W00-W04 S20-S15
     19  972  558 (S18E16 L=107)   984    336        1 ( 930/ 402-1041/ 705)  43.3 E24-E07 S27-S11
     20  514  676 (S00E40 L= 84)   295    118        1 ( 470/ 653- 565/ 690) -18.4 E43-E36 S02-N00
     21  639  658 (S04E32 L= 91)   212     13        0 ( 620/ 641- 659/ 675) -63.4 E33-E30 S05-S03
     22 1168  602 (S21E04 L=120)   265    120        0 (1154/ 552-1182/ 663)  63.4 E05-E02 S23-S17
     23 1698  629 (S38W35 L=158)   303     63        0 (1672/ 609-1725/ 653)   0.0 W32-W37 S38-S36
     24  344  485 (S08E64 L= 60)   429     80        0 ( 325/ 455- 366/ 526)  59.0 E66-E60 S10-S05
     25  300  459 (S10E72 L= 51)   723     87        1 ( 272/ 414- 319/ 485)  68.2 E77-E69 S12-S07
     26 1019  402 (S30E20 L=104)   298     90        0 ( 967/ 388-1064/ 415) -33.7 E22-E16 S31-S27
  

    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